
cervejas <-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")

"chope" = 1
"lata" = 2
"garrafa" =3

cervejas.factor <- factor(cervejas)


dotchart(summary(cervejas.factor))

barplot(summary(cervejas.factor))



bar = (5*3)+(5*13)+(5*10)+(5*2) 
dot = ((2*pi*0.05)*4) 
ratio.bar = length(cervejas)/bar 
ratio.dot = length(summary(cervejas))/dot


print("O dotplot tem maior razo dado/tinta")

